﻿Public Class Form1
  Private Sub Button1_Click(
          ByVal sender As System.Object,
          ByVal e As System.EventArgs) _
          Handles Button1.Click
    ' creazione di una matrice di 5 elementi
    ' (da 0 a 4)
    Dim pb(4) As PictureBox
    ' ogni elemento è costituito da una
    ' delle cinque PictureBox
    pb(0) = Me.PictureBox1
    pb(1) = Me.PictureBox2
    pb(2) = Me.PictureBox3
    pb(3) = Me.PictureBox4
    pb(4) = Me.PictureBox5

    ' carica le 5 copie dell'immagine
    For i As Integer = 0 To 4
      ' esempio di nome di file:
      pb(i).ImageLocation =
        My.Computer.FileSystem.CurrentDirectory &
          "\Desert.jpg"
      pb(i).Load()
    Next
  End Sub
End Class
